input font1base		% get the basis
proofing:=1;		% make a .gf file
vardef char.w =
	setwidth .74em;	% this from "average character width table" TSS
	pos1(1.5thickwidth,30);
	pos2(1.05thickwidth,10);
	pos21(thinwidth,10);
	pos3(thinwidth,30);
	pos31(thickwidth,30);	
	pos4(1.05thickwidth,10);
	pos41(thinwidth,10);
	pos5(1.5thinwidth,30);
	y1=xheight; x1l=.1em; x5r=w-.1em;	% some fixed points
	x2=.45[x1,x3]; x3=.5[x1,x5]; x4=.45[x3,x5];	% relating corners
	z21r=z2r; z31l=z3l; z41r=z4r;	% tie corners of strokes
	y31r=y1; y5=y1;		% the tops of the strokes
	y2=0; y4=y2;	% the baseline
	stroke(1,2,.1,.2,0);
	stroke(21,3,.2,.0,.2);
	stroke(31,4,.1,.2,.2);
	stroke(41,5,.9,.2,0);
	labelpos(1,2,3,4,5);
enddef;
vardef char.E =
	setwidth .63em;
	pos1(1.5thinwidth,45); pos2(1.25thinwidth,135);
	pos3(1.4thinwidth,90); pos4(.9thinwidth,90);
	pos5(1.5thinwidth,-45); pos6(1.25thinwidth,-135);
	pos7(thickwidth,0); pos8(thickwidth,0);
	x1=w-.1em; y1r=capheight; x2=.1em;	% fixed points
	y2r=y1r; x3=.95[x7,x1l]; y3=.55[y6,y2]; x4=x7; y4=y3;
	x5=x1; x6=x2; y5r=0; y6r=y5r;
	z7l=z6; z8l=z2;
	stroke(1,2,.1,.2,0); stroke(3,4,.1,.2,.2);
	stroke(5,6,.1,.2,0); stroke(7,8,.5,.15,.05);
enddef;
pausing:=1;
test.normal(char.E);
test.bold(char.E);
% test.boldx(char.E);
test.normal(char.w);
test.bold(char.w);
test.boldx(char.w);
pausing:=0;
end